inherited fmAddpodpisant_New: TfmAddpodpisant_New
  Left = 97
  Top = 254
  Width = 1120
  Height = 420
  Caption = 'fmAddpodpisant'
  Constraints.MinHeight = 420
  Constraints.MinWidth = 1120
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 13
    Top = 50
    Width = 123
    Height = 16
    Caption = #1042#1074#1077#1076#1080#1090#1077' '#1092#1072#1084#1080#1083#1080#1102
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 359
    Width = 1112
  end
  inherited Panel1: TPanel
    Width = 1112
    inherited BitBtn1: TBitBtn
      Left = 942
    end
    inherited BitBtn2: TBitBtn
      Left = 1030
    end
    object ToolBar2: TToolBar
      Left = 0
      Top = 0
      Width = 73
      Height = 34
      Align = alCustom
      AutoSize = True
      BorderWidth = 2
      ButtonWidth = 25
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = DMInv.ilActive
      TabOrder = 2
      TabStop = True
      Transparent = True
      object ToolButton4: TToolButton
        Left = 0
        Top = 2
        Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1086#1076#1087#1080#1089#1072#1085#1090#1072
        ImageIndex = 28
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton4Click
      end
    end
  end
  object dbgClients: TcxGrid [3]
    Left = 5
    Top = 103
    Width = 428
    Height = 235
    Align = alCustom
    TabOrder = 2
    LookAndFeel.Kind = lfStandard
    object tvPeople: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skCount
          Position = spFooter
          FieldName = 'PLASTNAME'
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsSelection.HideFocusRectOnExit = False
      OptionsSelection.InvertSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.ColumnAutoWidth = True
      OptionsView.DataRowHeight = 24
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object tvPeoplePP: TcxGridDBColumn
        Caption = #1060#1048#1054
        DataBinding.FieldName = 'PP'
        Width = 196
      end
      object tvPeoplePDATEBIRTH: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
        DataBinding.FieldName = 'PDATEBIRTH'
        Width = 66
      end
      object tvPeopleSDNAME: TcxGridDBColumn
        Caption = #1057#1090#1072#1090#1091#1089
        DataBinding.FieldName = 'SDNAME'
        Width = 102
      end
    end
    object dbgClientsLevel1: TcxGridLevel
      GridView = tvPeople
    end
  end
  object cxGrid2: TcxGrid [4]
    Left = 781
    Top = 103
    Width = 316
    Height = 235
    Align = alCustom
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    object cxGridDBTableView2: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsTemp
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skCount
          Position = spFooter
          FieldName = 'PLASTNAME'
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.ColumnAutoWidth = True
      OptionsView.DataRowHeight = 24
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object cxGridDBTableView2FIO: TcxGridDBColumn
        Caption = #1060#1048#1054
        DataBinding.FieldName = 'FIO'
        Width = 206
      end
      object cxGridDBTableView2SDNAME: TcxGridDBColumn
        Caption = #1057#1074#1103#1079#1100
        DataBinding.FieldName = 'SDNAME'
        Width = 94
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = cxGridDBTableView2
    end
  end
  object Panel3: TPanel [5]
    Left = 447
    Top = 103
    Width = 281
    Height = 235
    TabOrder = 4
    object Label7: TLabel
      Left = 5
      Top = 9
      Width = 186
      Height = 16
      Caption = #1057#1074#1103#1079#1100' '#1089' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1077#1084' '#1091#1089#1083#1091#1075
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object cxLookupComboBox2: TcxLookupComboBox
      Left = 10
      Top = 39
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 20
      Properties.KeyFieldNames = 'SDNAME'
      Properties.ListColumns = <
        item
          Caption = #1057#1074#1103#1079#1100' '#1089' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1077#1084' '#1091#1089#1083#1091#1075
          FieldName = 'SDNAME'
        end>
      Properties.ListSource = DataSource5
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 0
      Width = 263
    end
  end
  object bAdd: TcxButton [6]
    Left = 734
    Top = 185
    Width = 40
    Height = 41
    Hint = #1044#1086#1073#1072#1074#1080#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = bAddClick
    Colors.Default = clGreen
    Glyph.Data = {
      56020000424D560200000000000076000000280000001E0000001E0000000100
      040000000000E001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      00000000000000000000077777777777777777777777777770000F7777777777
      777777777777777770000F8888888888888888888888888770000F8888888888
      888888888888888770000F88888888888888888888888887700A0F8888888888
      8888888888888887702C0F88888888888888888888888887704C0F8888888888
      888888888888888770900F88888888FF888888888888888770A80F8888888878
      FF8888888888888770150F888888887008FF88888888888770420F8888888870
      0008FF888888888770260F8888888870000008FF8888888770000F8888888870
      00000008FF88888770070F8888888870000000000778888770880F8888888870
      000000077888888770000F8888888870000007788888888770000F8888888870
      000778888888888770000F8888888870077888888888888770000F8888888877
      788888888888888770020F8888888878888888888888888770040F8888888888
      888888888888888770090F8888888888888888888888888770020F8888888888
      888888888888888770040F8888888888888888888888888770090F8888888888
      888888888888888770020F8888888888888888888888888770040FFFFFFFFFFF
      FFFFFFFFFFFFFFFF700000000000000000000000000000000000}
    LookAndFeel.Kind = lfFlat
    LookAndFeel.SkinName = ''
  end
  object cxButton2: TcxButton [7]
    Left = 735
    Top = 238
    Width = 39
    Height = 37
    Hint = #1059#1076#1072#1083#1080#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = cxButton2Click
    Colors.Default = clRed
    Glyph.Data = {
      56020000424D560200000000000076000000280000001E0000001E0000000100
      040000000000E001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      00000000000000000000077777777777777777777777777770000F7777777777
      777777777777777770000F8888888888888888888888888770000F8888888888
      888888888888888770000F88888888888888888888888887700A0F8888888888
      8888888888888887702C0F88888888888888888888888887704C0F8888888888
      888888888888888770900F8888888888888888FF8888888770A80F8888888888
      8888FF8F8888888770150F888888888888FF800F8888888770420F8888888888
      FF80000F8888888770A60F88888888FF8000000F8888888770000F888888FF80
      0000000F8888888770250F88888770000000000F8888888770CA0F8888888770
      0000000F8888888770260F88888888877000000F8888888770000F8888888888
      8770000F8888888770070F88888888888887700F8888888770880F8888888888
      8888877F8888888770000F88888888888888888F8888888770000F8888888888
      888888888888888770000F8888888888888888888888888770000F8888888888
      888888888888888770560F8888888888888888888888888770DD0F8888888888
      888888888888888770000F8888888888888888888888888770000FFFFFFFFFFF
      FFFFFFFFFFFFFFFF700000000000000000000000000000000000}
    LookAndFeel.Kind = lfFlat
    LookAndFeel.SkinName = ''
  end
  object Edit1: TEdit [8]
    Left = 13
    Top = 68
    Width = 252
    Height = 27
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnChange = Edit1Change
  end
  inherited dlgDS: TDataSource
    DataSet = qPeople
  end
  object qPeople: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.*, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,'#39' ' +
        #39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, PS.SDID'
      'FROM PEOPLE P'
      'LEFT OUTER JOIN P_STATUS PS ON PS.PID = P.PID'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = PS.SDID'
      'WHERE P.PISDELETE IS NULL'
      '    AND PS.SDID <> 1246'
      'ORDER BY 3')
    Left = 288
    object qPeoplePID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPeoplePNAME: TIBStringField
      FieldName = 'PNAME'
      Origin = '"PEOPLE"."PNAME"'
      Size = 255
    end
    object qPeoplePLASTNAME: TIBStringField
      FieldName = 'PLASTNAME'
      Origin = '"PEOPLE"."PLASTNAME"'
      Size = 255
    end
    object qPeoplePPATRONYMIC: TIBStringField
      FieldName = 'PPATRONYMIC'
      Origin = '"PEOPLE"."PPATRONYMIC"'
      Size = 255
    end
    object qPeoplePDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object qPeoplePSEX: TIntegerField
      FieldName = 'PSEX'
      Origin = '"PEOPLE"."PSEX"'
    end
    object qPeoplePNOTE: TIBStringField
      FieldName = 'PNOTE'
      Origin = '"PEOPLE"."PNOTE"'
      Size = 2048
    end
    object qPeoplePUSERENTER: TIBStringField
      FieldName = 'PUSERENTER'
      Origin = '"PEOPLE"."PUSERENTER"'
      Size = 40
    end
    object qPeoplePTIMEENTER: TDateTimeField
      FieldName = 'PTIMEENTER'
      Origin = '"PEOPLE"."PTIMEENTER"'
    end
    object qPeoplePUSEREDIT: TIBStringField
      FieldName = 'PUSEREDIT'
      Origin = '"PEOPLE"."PUSEREDIT"'
      Size = 40
    end
    object qPeoplePTIMEEDIT: TDateTimeField
      FieldName = 'PTIMEEDIT'
      Origin = '"PEOPLE"."PTIMEEDIT"'
    end
    object qPeoplePISDELETE: TIntegerField
      FieldName = 'PISDELETE'
      Origin = '"PEOPLE"."PISDELETE"'
    end
    object qPeoplePP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPeopleSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPeopleSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
  end
  object dsTemp: TDataSource
    Left = 848
    Top = 144
  end
  object DataSource5: TDataSource
    DataSet = qPropusk
    Left = 903
    Top = 293
  end
  object qPropusk: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID =7'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39' '#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 1'
      ''
      '')
    Left = 935
    Top = 295
    object qPropuskSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object qPropuskSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qPropuskSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qPropuskSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
end
